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RAHAT HKAAETATETAHAAHKATAAAAHAAAAAARAAAAAAARAHEAEAERATAAAREATeAAeee eee eeet 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


Se 
3* * 
3* * 
3* * 
3* * 
3* * 
;* THIS oer: IS aE UNDER A LICENSE AND MAY BE USED AND COPIED * 
7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH MTS a AND WITH THE « 
:* INCLUSION OF THE ABOVE gut og NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
3* w 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
7* ® 
3* a 
3* ® 
3* ® 
7 ® 
3 * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"FACILITY: SYSGEN 


ABSTRACT 
THIS ROUTINE READS A DRIVER INTO MEMORY BY MAPPING IT (S$CRMPSC) 


ENVIRONMENT: USER MODE 


AUTHOR: STEVE BECKHARDT CREATION DATE: 21-SEP-1979 
(ORIGINAL AUTHOR = LEN KAWELL) 


MODIFICATION HISTORY: 


v02-005 JLV0038 Jake VanNoy 13-Jul-1981 
Add © LIBS routines. Return default file name 
to SYSSSYSTEM: .EXE. 
v04 JLV0013 Jake VanNoy 7-May-1981 
Suppress error messages from unsupported device drivers. 
v03 JLVO002 Jake VanNoy 9-Feb-1981 


Changed psects to allow pe aed and non~peged segments 
tS Sie image. Add SHOW/CONFIGURATION and 


v02 mk0001 LEN KAWELL 
CHANGE TO READ IMAGE KAEADER AS WELL. 
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«SBTTL DECLARATIONS 
INCLUDE FILES: 


cn 


MACROS: 


: EQUATED SYMBOLS: 


SACF DEF 
SSECDEF ; DEFINE SCRMPSC FLAGS 


; OWN STORAGE : 


5O. 0909 09 09 09 09 09 09 09 09 SII NII NINN NAA AAAAAAOOUM 
o NOUS WN OC OONOA UE WN OOONOUS WO O00 
Sete te 


0000 -PSECT PAGED_DATA rd,wrt,noexe,quad 
IN_FAB: : INPUT FILE FAB 
SF AB FOP = UFO,- 3; RMS WILL JUST te IT 
NAM = IN_NAM,=- ; NAME BLOCK ADDR 
DNM = <SYSSSYSTEM:.EXE> ; DEFAULT FILE 
IN_NAM: ; INPUT FILE NAME BLOCK 
SNAM ESA = NAME,- 3; EXPANDED STRING BUFFER ADDRESS 
ESS = NAMSC_MAXRSS 3; EXPANDED STRING BUFFER SIZE 
0B 8 NAME: 3; EXPANDED STRING BUFFER 
000001AF 0B 89 -BLKB NAMSC_MAXRSS 
1A 91 MAP_RANGE : 3; MAP RANGE ARRAY 
00000000 1A g -LONG 0O ; JUST USED TO INDICATE PO SPACE 
00000000 018 9 LONG 0 
18 94 
1B 95 
0000000 96 -PSECT PAGED_CODE rd,nowrt,exe, long 


+ ee 4 v 


52. QOO00°CF ODE 
34 As 80 90 
ec A 60 9€ 


32 50 «EB 

51 O0000000'EF oD 
5 0B Al » § 

0 0B Al 4 € 

9 

9 


0080 CF 
7€ b08B" CF 


Dx 


i a a a a ed ad dd 
UV Be BS BS BBE EE ANNAN AAAI NIAID PININININPNIDYS 2 OS SS OOO OOOOOOOWONDO 
FAN = CO ODNAUE WN 9S OD NAUE WN SO OD NAUES WN @OOONAUS WN" OOONOUS WOO 
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BOOTS. SRCJREADDRIV.MAR; 1 
a .SBTTL READ DRIVER 
: FUNCTIONAL DESCRIPTION: 


This routine maps a driver into memory by doing a create and 
map section. 


CALLING SEQUENCE: 
BSBW IOGENSREADDRIV 
INPUT PARAMETERS: 
R0 Address of filename counted string 
Re pearecs na soy eh Fg hg SO range 
aps ddress of ACF Block 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO Completion code 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
Those returned by SOPEN and $CRMPSC 
SIDE EFFECTS: 
RO = R2 are used as scratch registers 


IOGENSREADDRIV:: 
MOVAL ; Get address of input FAB 


W*IN_FAB,R2 
MOVB  (RO)?,FABSB_FNS(R2) : Store filename size in FAB 
MOVAB (RO), fF ABSL_FNA(R2) : Store filename address in FAB 
: Open the image file 
, SOPEN  (R2) : Open the file 
BLBS RO,20$ ; Br. if success 


moval Boo$al_acf,R1 t address of acf block (not in AP) 


’ ; Se 
bbs #acf$v_noload_db,ac f$b ptlogtat) 10$ ; Branch if Load driver call 


bbs #acf$v_support,acf$b_aflag(R1),10$ ; Branch if NOSUPPORT 


PUSHAB W*NAME ; Create expanded name string 
MOVZBL W*NAMSB_ESL+IN_NAM,=(SP); descriptor 


ne 


READDRIV = READ DRIVER INTO MEMORY 
¥ READ DRIVER 
51 DO 3 155 MOVL 
es 
o0000000'Gr. OS FR O0L0 188 att: 
gt 88 £0 be 160 ADDL 
4A 161 108: RSB 
048 16 3 
eee 197 ; Map the file 
63 OC A2 BO 0048 165 208: wmovw 
O04F 166 SCRMPSC 
O04F 16 
004F 168 
004F 169 
004F 170 
0073. =—«171 
0073 1% RSB 
0074 +17 
0074 17% 
0074 175 END 


st. 


goat 
R1 


seen 38:08:73 


ee 


“CIB$SIG 


SP 


& 
is OPENIN 
’ 


FABSL oe de (R3) 


S CHAN = 7 
“Fy ADR = wsnap’R NGE,- 
Re TaoR WSECSAL ReNeREG, - 
VBN = #1 


Sete Ge Ge Ge Ge 


AX/VMS Macro Vv04-00 
BOOTS.SRCJREADDRIV.MAR; 1 


; Save address of descriptor 
Push addr. of file name desc. 
Push FAO count 

Push error status 

Signal the error 

Pop descriptor off stack 


Store channel number 
Channel 

Map in PO space 
Expand region 

Return address areey 
Map entire image file 


Status in RO 


Page (3) 
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$$.TAB = 00050 R 08 
$$. TABEND = $ 8 g 
$$. TMP = 
$$: 1HP2 : 090006 

° = 
Hes = 90000000 ROS 
$$. TMPX1 = 4 OOF 
$$ = 00000000 
ACFSB_AFLAG BOONE 
ACFSV_NOLOAD_DB = 44 
ACFSV- SUPPORT = 00000004 
BOOSAC_ACF eeereree XY 04 
FABSB_ONS = 9000003 
FABSB_FNS = 00000034 
FABSC_BID = BONN 
FABSC_BLN = 00000050 
FABSC_SEQ = 00000000 
FABSC_VAR = 90000008 
FABSL_ALQ = 0000001 
FABSL_DNA = 00000030 
FABSL_F = 44 4 t 
FABSL_F = 00000004 
FABSL_STV = 0000000C 
F ABSV_CHAN_MODE = 00000002 
FABSV_FILE MODE = 00000004 
F ABSV_LNM_FODE = 00000000 
FABSV_UFO = 00000011 
FABSW" GBC = 00000048 
IN_FAB 00000000 R 02 
IN_NAM 00000050 R 02 
I1OGENSREADDRIV 00000000 RG 04 
LIBSSIGNAL eeereree§ Xx 04 
MAP_RANGE OOOOOIAF R 02 
NAM$B_ESL = 00000008 
NAMSB_ESS = Q000000A 
NAM$B_NOP = 00000008 
NAMSB_RSS = aise: 
NAMSC_BID = 0000000 
NAMSC_BLN = 00000060 
NAMSC_MAXRSS = Q00000F F 
NAMSL_ESA = 0000000C 
NAMSL_RSA = 00000004 
NAME 00000080 R 02 
SECSM_EXPREG = 00020000 
SHR$_OPENIN teereree XX 04 
SYSSTRMPSC teeeereer GX 04 


SYSSOPEN eererere GX 04 
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bn a ee ee 


! Psect synopsis ! 


tomer nena eeoo ven ace 4} 


PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 8.3 00 ¢ 0.) NOPIC USR CON ABS LCL ee NOEXE NORD NOWRT NOVEC BYTE 
SABSS 4444 4 ( of 1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
PAGED_DATA 0001B7 ( 439.) ¢ ( 2.) NOPIC USR CON REL LCL NOSHA NOEXE RD WRT NOVEC QUAD 
SRMSNAM OOOOOOF ¢ 15.) ( -) NOPIC USR CON REL LCL N EXE RD WRT NOVEC BYTE 
PAGED_ CODE 00000074 ¢ 116.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
beowmamren wre cer err eae c cee man + 
: Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:00.34 
pommene processing 107 00:00:00.65 00:00:02. 38 
219 Abs SEE 00:00:12.91 
Synbol table sort 0 00:00:00. 00:00:00.65 
s2 48 00:00:00.89 00:00:01.72 
we table output 7 00:00:00.06 00:00:00.06 
Psect synopsis output 3 00:00:00.04 00:00:00.06 
Cross-reference output 2 ae $4 8 4 00:00:00.00 
Assembler run totals 41 00:00:07.30 00:00:18.13 


The working set Limit was 1200 pages. 

24045 bytes (47 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 440 non-local and 2 Local symbols. 
175 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

25 pages of virtual memory were used to define 20 macros. 


Macro Library name Macros defined 
“$255$DUA28: speoots Re -MLB;1 0 
“$255$DUA28: 71 1 

$255$DUA28:(SYSLIBJSTARLET.MLB;2 16 

TOTALS ‘all Libraries) 17 


702 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:READDRIV/OBJ=O0BJ$:READDRIV MSRC$:READDRIV/UPDATE=(ENHS$:READDRIV) ¢EXECMLS$/L1B+LIB$:BO0OTS.MLB/LIB 
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